home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0687.arc / BIGARRAY.F77 < prev    next >
Text File  |  1987-04-02  |  503b  |  23 lines
  1. C     PROGRAM WITH A LARGE ARRAY
  2. C
  3.       INTEGER I, J
  4.       REAL MATRIX, SUM
  5.       DIMENSION MATRIX(200,200)
  6. C
  7. C     MATRIX IS A 200 X 200 = 40000 ELEMENT ARRAY
  8. C     OR 160 KILOBYTES AT 4 BYTES/ELEMENT
  9. C
  10.       DATA MATRIX/10000*1.0,10000*2.0,10000*3.0,10000*4.0/
  11. C
  12. C     Calculate the sum of all elements
  13. C
  14.       SUM = 0.0
  15.       DO 10 J=1,200
  16.         DO 10 I=1,200
  17.         SUM = SUM + MATRIX(I,J)
  18.    10 CONTINUE
  19. C
  20.       WRITE(*,1000) SUM
  21.  1000 FORMAT(2X,'SUM = ',1F9.1)
  22.       END
  23.